#!/usr/bin/perl
#index.cgi

require './setlang-lib.pl';

$clang = $gconfig{'lang'}?$gconfig{'lang'}:$default_lang;
&header($text{'setlang_title'}, "", "index", 0, 1);
print "<form action='change_lang.cgi' method=post onsubmit='document.forms[0].saveok.disabled = true;'><table class=mode1>\n";
print "<tr><td><b>$text{'select_lang'}</b></td>\n";
print "<td><select name=lang>\n";
printf "<option %s value='en'>$text{'lang_en'}\n", ($clang eq 'en')?"selected":"";
printf "<option %s value='zh_CN'>$text{'lang_zh_CN'}\n", ($clang eq 'zh_CN')?"selected":"";
print "</select></td></tr>\n";
print "<tr><td colspan=2><input type=submit name=saveok class=button1 value='$text{'submit'}'></td></tr>\n";
print "</table></form>\n";
&footer("/", $text{'index'});
